home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 December / 1989-12.d64 / color magic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  92 lines
  1. 10 poke53280,0
  2. 20 poke53281,0
  3. 30 print"[147]color magic"
  4. 1000 rem mix
  5. 1010 fora=49152to49243
  6. 1020 readaa
  7. 1030 pokea,aa
  8. 1040 next
  9. 1050 data120,169,49,141,20,3,169,192
  10. 1060 data141,21,3,173,17,208,41,127,141
  11. 1070 data17,208,169,255,141,18,208,169
  12. 1080 data1,141,26,208,169,127,141,13
  13. 1090 data220,88,169,255,141,14,212,141
  14. 1100 data15,212,169,128,141,18,212,96
  15. 1110 data206,53,192,169,3,208,27,169
  16. 1120 data3:rem speed
  17. 1130 data141,53,192,162,0,173,27,212
  18. 1140 data157,0,216,157,250,216,157,244
  19. 1150 data217,157,238,218,232,224,250
  20. 1160 data208,236,169,1,141,25,208,76,49
  21. 1170 data234,0
  22. 1180 print"poke 49209,3:sys 49152:rem mix"
  23. 2000 rem scroll
  24. 2010 fora=49244to49343
  25. 2020 readaa
  26. 2030 pokea,aa
  27. 2040 next
  28. 2050 data120,169,128,141,20,3,169,192
  29. 2060 data141,21,3,173,17,208,41,127,141
  30. 2070 data17,208,169,255,141,18,208,169
  31. 2080 data1,141,26,208,169,127,141,13
  32. 2090 data220,88,96,206,132,192,169,4
  33. 2100 data208,48,169
  34. 2110 data4:rem speed
  35. 2120 data141,132,192,162
  36. 2130 data24,189,240,236,141,163,192,181
  37. 2140 data217,41,15,24,105,212,141,164
  38. 2150 data192,160,39,169,0,153,0,216,136
  39. 2160 data16,250,206,161,192,202,16,224
  40. 2170 data173,161,192,24,105,8,141,161
  41. 2180 data192,169,1,141,25,208,76,49,234
  42. 2190 data0
  43. 2200 print"poke 49288,4:sys 49244:rem scroll"
  44. 3000 rem flash
  45. 3010 fora=49344to49424
  46. 3020 readaa
  47. 3030 pokea,aa
  48. 3040 next
  49. 3050 data120,169,228,141,20,3,169,192
  50. 3060 data141,21,3,173,17,208,41,127,141
  51. 3070 data17,208,169,255,141,18,208,169
  52. 3080 data1,141,26,208,169,127,141,13
  53. 3090 data220,88,96,206,232,192,169,1
  54. 3100 data208,29,169
  55. 3110 data1:rem speed
  56. 3120 data141,232,192,162,0
  57. 3130 data169,0,157,0,216,157,250,216
  58. 3140 data157,244,217,157,238,218,232
  59. 3150 data224,250,208,239,238,243,192
  60. 3160 data169,1,141,25,208,76,49,234,0
  61. 3170 print"poke 49388,1:sys 49344:rem flash"
  62. 4000 rem sparkle
  63. 4010 fora=49425to49508
  64. 4020 readaa
  65. 4030 pokea,aa
  66. 4040 next
  67. 4050 data120,169,53,141,20,3,169,193
  68. 4060 data141,21,3,173,17,208,41,127,141
  69. 4070 data17,208,169,255,141,18,208,169
  70. 4080 data1,141,26,208,169,127,141,13
  71. 4090 data220,88,96,206,57,193,169,2,208
  72. 4100 data32,169
  73. 4110 data2:rem speed
  74. 4120 data141,57,193,162,0,169
  75. 4130 data0,24,105,1,157,0,216,157,250
  76. 4140 data216,157,244,217,157,238,218
  77. 4150 data232,224,250,208,236,206,68,193
  78. 4160 data169,1,141,25,208,76,49,234,0
  79. 4170 print"poke 49469,2:sys 49425:rem sparkle"
  80. 5000 rem set
  81. 5010 fora=49509to49554
  82. 5020 readaa
  83. 5030 pokea,aa
  84. 5040 next
  85. 5050 data120,169,49,141,20,3,169,234
  86. 5060 data141,21,3,169,0,141,26,208,169
  87. 5070 data129,141,13,220,88,162,0,173
  88. 5080 data134,2,157,0,216,157,250,216
  89. 5090 data157,244,217,157,238,218,232
  90. 5100 data224,250,208,239,96,0
  91. 5110 print"sys 49509:rem set"
  92.